home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / WHE_RESI.TXT < prev    next >
Text File  |  1993-11-11  |  4KB  |  77 lines
  1. \CALL SET_STANDARD_ONKEYS
  2. \X RESIDENTIAL\MOVE 11100 TO CURR_PG\ON KEY PG_UP JUMP OPEN_SCRN\ON KEY PG_DN JUMP INDUSTRIAL\+
  3. \MOVE 45 TO V\CALLM SUB_HEAD
  4. Residential Applications
  5. \"
  6. \X TAG11110\ON KEY 7181\IF CURR_PG>=11120\JUMP TAG11120\ENDIF\MOVE 11110 TO CURR_PG
  7. \LINE 40,170,590,680,23,BF
  8. \MOVE 45 TO V\CALLM SETUP_TXT
  9. \"
  10. In your home, there are probably many pumps.  If you have a well, there may be Jet Pump, based on the "impeller" mechanism shown on the right, to bring the water up the well.
  11. \"
  12. You'll see a lot of Impeller Pumps in this tutorial since they are very common, and their method of operation will be explained later.
  13. \"
  14. Many household appliances have pumps within them, including refrigerators and air conditioners.  In the yard, fountains and chain saws have water and fuel pumps, respectively.
  15. \"
  16. \MOVE 700 TO Q\MOVE 250 TO R\MOVE 960 TO S\MOVE 520 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  17. \MOVE 'IMPELDBL' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
  18. \ON KEY 7181 JUMP WELL_OFF\ROUNDS -1 SPEED 33\SHOW L=700,250
  19. \IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
  20. \X WELL_OFF\CALLM WAITOFF\LINE 620,150,1024,700,1,BF
  21. \X TAG11120\ON KEY 7181\IF CURR_PG>=11130\JUMP TAG11130\ENDIF\MOVE 11120 TO CURR_PG
  22. \MOVE 45 TO V\CALLM SETUP_TXT
  23. \"
  24. If you have a fish tank, it will have a pump or two--to pump water through a filter, and air through the water.  Illustrated on the right is a simple and very common type of fish tank air pump.
  25. \"
  26. In this pump a "diaphram" is moved in and out by an small AC motor.  Two valves alternately open and close with each cycle, forcing a small quantity of air into the tube which runs to the fish tank.
  27. \"
  28. Regular AC house current drives the motor, so the diaphram is moved in and out 60 times per second.
  29. \"
  30. \"
  31. \"
  32. \MOVE 630 TO Q\MOVE 300 TO R\MOVE 999 TO S\MOVE 550 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  33. \MOVE "FISH3DIA" TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
  34. \ON KEY 7181 JUMP FISH_OFF\ROUNDS -1 SPEED 13\SHOW L=630,300
  35. \IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
  36. \X FISH_OFF\CALLM WAITOFF\LINE 610,150,1024,700,1,BF
  37. \X TAG11130\ON KEY 7181\IF CURR_PG>=11140\JUMP TAG11140\ENDIF\MOVE 11130 TO CURR_PG
  38. \MOVE 45 TO V\CALLM SETUP_TXT
  39. \"
  40. In rural locations where city water is not available, a Piston Pump such as the one shown on the right might be used to bring water up from a cistern or well (a Jet Pump like the one shown earlier may be used too.)
  41. \"
  42. This type of pump is usually driven by a small electric motor which rotates the disk either directly or via a belt or gear assembly.  Suction is created when the piston moves toward the disk, drawing water up from below.
  43. \"
  44. On the return half of the cycle the top valve opens and the bottom one closes, and the water is forced up through the top pipe.
  45. \MOVE 670 TO Q\MOVE 380 TO R\MOVE 939 TO S\MOVE 550 TO T\MOVE 9 TO U\CALLM TUBE_BOX
  46. \MOVE "PISTDAP6" TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
  47. \ON KEY 7181 JUMP PIST_OFF\ROUNDS -1 SPEED 18\SHOW L=670,380
  48. \IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
  49. \X PIST_OFF\CALLM WAITOFF\LINE 610,150,1024,700,1,BF
  50. \X TAG11140\ON KEY 7181\IF CURR_PG>=11150\JUMP INDUSTRIAL\ENDIF\MOVE 11140 TO CURR_PG
  51. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF
  52. \MOVE 45 TO V\CALLM SETUP_TXT
  53. \"
  54. Low cellars and basements often have a Sump Pump to remove water that seeps in through cracks in the foundation.
  55. \"
  56. Fire extinquishers (which every house should have!) are sometimes designed with a pumping mechanism.
  57. \"
  58. There are many other places around the house where pumps play a vital role.  If you take a careful look you'll probably find lots of pumps all around you!
  59. \"
  60. \"
  61. \"
  62. \"
  63. \"
  64. \"
  65. \MOVE 690 TO Q\MOVE 330 TO R\MOVE 980 TO S\MOVE 460 TO T\MOVE 4 TO U\CALLM TUBE_BOX
  66. \LOCATE 710,370\WIDTH 260 DOTS CENTERED\OVER 1,A,52,1
  67. You have completed this section!
  68. \CALLM WAITBOX\WAIT NOW -1
  69. \X INDUSTRIAL\CALLM WAITOFF\MOVE 'WHE_INDU' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
  70. \X OPEN_SCRN\CALLM WAITOFF\MOVE 'WHEREPUM' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
  71. \X MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  72. \X ALT_QUITED\ON ERROR\END
  73. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  74. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  75. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  76.  
  77.